home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DATATYPE.SWG
/
0004_COMPARE.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
382b
|
23 lines
{
SEAN PALMER
generic compare Function...
make sure to keep garbage out of Strings (by filling With #0
before storing the Strings) and you can compare ANY data With this.
}
Function equal(Var m1, m2; siz : Word) : Boolean; Assembler;
Asm
push ds
cld
les di, m1
lds si, m2
mov cx, siz
xor al, al
repe cmpsb
jne @S
inc al
@S:
pop ds
end;